home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / GEN.DCR / 00506.ls < prev    next >
Encoding:
Text File  |  1998-12-02  |  1006 b   |  52 lines
  1. on enterFrame
  2.   global ActiveHZone
  3.   set ActiveHZone to "2"
  4.   set ro to rollOver()
  5.   set thereIsRoll to 0
  6.   if (ro >= 45) and (ro <= 51) then
  7.     set thereIsRoll to 1
  8.     cursor([member "mousePointer", member "mousePointerMask"])
  9.   end if
  10.   if thereIsRoll = 0 then
  11.     cursor(-1)
  12.   end if
  13. end
  14.  
  15. on exitFrame
  16.   set ro to rollOver()
  17.   case ro of
  18.     30:
  19.       initSprites()
  20.       puppetSprite(1, 1)
  21.       puppetSprite(2, 1)
  22.       go("OrdinateurVOnLogo1")
  23.     31:
  24.       initSprites()
  25.       puppetSprite(1, 1)
  26.       puppetSprite(2, 1)
  27.       go("OrdinateurVOnLogo2")
  28.     32:
  29.       initSprites()
  30.       puppetSprite(1, 1)
  31.       puppetSprite(2, 1)
  32.       go("OrdinateurVOnLogo3")
  33.     33:
  34.       initSprites()
  35.       puppetSprite(1, 1)
  36.       puppetSprite(2, 1)
  37.       go("OrdinateurVOnLogo4")
  38.     34:
  39.       initSprites()
  40.       puppetSprite(1, 1)
  41.       puppetSprite(2, 1)
  42.       go("OrdinateurVOnLogo5")
  43.     otherwise:
  44.       go(the frame)
  45.   end case
  46. end
  47.  
  48. on mouseUp
  49.   playThisSound("hyplien2", 4)
  50.   go("OrdinateurS1")
  51. end
  52.